home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / ags210.arc / AGSCR.PRG < prev    next >
Text File  |  1988-05-07  |  1KB  |  48 lines
  1. *   AGSCr
  2. *   AGS
  3. *   RL Coppedge
  4. *   V 2.0
  5. *   22 Mar 88
  6. *
  7. SET EXACT ON
  8. SET TALK OFF
  9. Fin = .F.
  10. DO WHILE .NOT. Fin
  11.    CLEAR
  12.    Cnt = "N"
  13.    @2,2 SAY "Application Generator System ---- RL Coppedge, CDP"
  14.    @5,10 SAY "AGS Initial System Generator..."
  15.    @8,20 SAY "Run this program if you are setting up a system for the"
  16.    @9,20 SAY "First time..."
  17.    @11,20 SAY "Do you want to continue (Y/N)" GET Cnt
  18.    READ
  19.    CLEAR GETS
  20.    IF .NOT. Cnt $ "Yy"
  21.       RETURN
  22.    ENDIF
  23.    CLEAR
  24.    @2,2 SAY "Application Generator System ---- RL Coppedge, CDP"
  25.    @5,10 SAY "AGS Initial System Generator..."
  26.    @7,10 SAY "Ok, I'll need to know:"
  27.    Dnme = SPACE(8)
  28.    @9,10 SAY "What is the database's Name: " GET Dnme
  29.    READ
  30.    CLEAR GETS
  31.    @10,10 SAY "Database " + Dnme
  32.    Cnt = "N"
  33.    @12,10 SAY "Is this what you want? (Y/N) " GET Cnt
  34.    READ
  35.    CLEAR GETS
  36.    IF .NOT. Cnt $ "Yy"
  37.       RETURN
  38.    ENDIF
  39.    !CD \DBDATA
  40.    !MKDIR &Dnme
  41.    !CD \DBDATA\&Dnme
  42.    !COPY \DBDATA\MAIN
  43.    !ERASE *.BIN
  44.    USE MAIN
  45.    REPLACE NAME WITH Dnme
  46.    DO \DBDATA\CREATE\CREATE
  47. ENDDO
  48. RETURN